home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / scsh / select.c < prev    next >
C/C++ Source or Header  |  1995-11-04  |  1KB  |  48 lines
  1. /* This is an Scheme48/C interface file, 
  2. ** automatically generated by cig.
  3. */
  4.  
  5. #include <stdio.h>
  6. #include <stdlib.h> /* For malloc. */
  7. #include "libcig.h"
  8.  
  9. /* Make sure foreign-function stubs interface to the C funs correctly: */
  10. #include "select1.h"
  11.  
  12. scheme_value df_select_copyback(long nargs, scheme_value *args)
  13. {
  14.     extern scheme_value select_copyback(scheme_value , scheme_value , scheme_value , scheme_value , int *, int *, int *);
  15.     scheme_value ret1;
  16.     scheme_value r1;
  17.     int r2;
  18.     int r3;
  19.     int r4;
  20.  
  21.     cig_check_nargs(5, nargs, "select_copyback");
  22.     r1 = select_copyback(args[4], args[3], args[2], args[1], &r2, &r3, &r4);
  23.     ret1 = r1;
  24.     VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
  25.     VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
  26.     VECTOR_REF(*args,2) = ENTER_FIXNUM(r4);
  27.     return ret1;
  28.     }
  29.  
  30. scheme_value df_select_filter(long nargs, scheme_value *args)
  31. {
  32.     extern scheme_value select_filter(scheme_value , scheme_value , scheme_value , scheme_value , int *, int *, int *);
  33.     scheme_value ret1;
  34.     scheme_value r1;
  35.     int r2;
  36.     int r3;
  37.     int r4;
  38.  
  39.     cig_check_nargs(5, nargs, "select_filter");
  40.     r1 = select_filter(args[4], args[3], args[2], args[1], &r2, &r3, &r4);
  41.     ret1 = r1;
  42.     VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
  43.     VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
  44.     VECTOR_REF(*args,2) = ENTER_FIXNUM(r4);
  45.     return ret1;
  46.     }
  47.  
  48.